From: Jan D Date: Sun, 15 Aug 2010 13:18:14 +0000 (+0200) Subject: * keyboard.c (parse_tool_bar_item): Put in a bad label if :label X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~6954 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ea3936f1089cea6037f93a17c42d1517114908c7;p=emacs.git * keyboard.c (parse_tool_bar_item): Put in a bad label if :label isn't a string. --- diff --git a/src/ChangeLog b/src/ChangeLog index eaedfe558c7..06e3840fbe5 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2010-08-15 Jan Djärv + + * keyboard.c (parse_tool_bar_item): Put in a bad label if :label + isn't a string. + 2010-08-15 Andreas Schwab * keyboard.c (parse_tool_bar_item): Avoid excessive use of strlen. diff --git a/src/keyboard.c b/src/keyboard.c index 6493fa5f9fd..570bf360eb5 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -8285,12 +8285,15 @@ parse_tool_bar_item (Lisp_Object key, Lisp_Object item) return 0; } else if (EQ (key, QChelp)) - /* `:help HELP-STRING'. */ - PROP (TOOL_BAR_ITEM_HELP) = value; + /* `:help HELP-STRING'. */ + PROP (TOOL_BAR_ITEM_HELP) = value; else if (EQ (key, QClabel)) { + const char *bad_label = "!!?GARBLED ITEM?!!"; /* `:label LABEL-STRING'. */ - PROP (TOOL_BAR_ITEM_LABEL) = value; + PROP (TOOL_BAR_ITEM_HELP) = STRINGP (value) + ? value + : make_string (bad_label, strlen (bad_label)); have_label = 1; } else if (EQ (key, QCfilter))